home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
BOZOL2.ZIP
/
CUSTOM.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-02-08
|
2KB
|
70 lines
CASE "ASK"
i%=0
FOR y%=1 TO UBOUND(VAR$)
IF LEN(VAR$(y%)) THEN
INCR i%:IF i%=20 THEN CWAIT:I%=0
BOZOPRINT "{"+VAR$(y%)+"}"+CHR$(9)+"["+VALUE$(y%)+"]"+CrLf$
END IF
NEXT y%
CASE "PUTFILE"
Buf=FREEFILE
OPEN POPARG$ FOR APPEND AS #buf
WHILE ArgPtr%>0
PRINT #buf, POPARG$;
WEND
CASE "MORE"
more=val(poparg$)
CASE "TYPE"
LET TypeBuffer = FREEFILE: LET lns = 0
Prg$=POPARG$
IF INSTR(Prg$,".") = 0 THEN Prg$ = Prg$ +".TYP"
IF LEN(DIR$(Prg$)) THEN
OPEN Prg$ FOR INPUT SHARED AS #TypeBuffer
typing% = 0
DO WHILE NOT EOF(TypeBuffer)
LINE INPUT #TypeBuffer, A$
IF LEFT$(LTRIM$(A$), 1) <>"$" THEN BOZOPRINT A$+CrLf$: lns = lns + 1: ELSE CALL BOZOL(MID$(LTRIM$(A$), 2))
IF more THEN
IF lns >= more THEN
lns = 0
BOZOPRINT"- more -"
CWAIT
BOZOPRINT STRING$(8, 8)
END IF
END IF
IF typing% THEN EXIT DO
LOOP
CLOSE #TypeBuffer
ELSE
CALL BOZOPRINT(CrLf$ + CHR$(7) + Prg$ +" not found." + CrLf$)
END IF
CASE "ENDTYPE"
LET typing% = 1
CASE "CD","CHDIR"
CHDIR POPARG$
CASE "MD","MKDIR"
MKDIR POPARG$
CASE "RD"
A$=POPARG$
IF LEN(DIR$(A$,16)) THEN KILL A$
CASE "HOME"
BOZOPRINT "^0@CLS()"
CASE "UNLOCK"
CLOSE #22
CASE "LOCK"
CLOSE #22
OPEN PopArg$ FOR OUTPUT AS #22:PRINT #22, TIME$, DATE$
' we open the file for output and write to it, then leave it open
' so any other user attempting lock the same file gets a big fat error